home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 October / Ahoy_Magazine_87-10_1987_Double_L_Side_A.d64 / jam attack 128 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  2.7 KB  |  58 lines
  1. 10 rem *** jam attack 128 *** buck childress ***
  2. 20 rem *** p.o. box 13575 salem, or 97309 ***
  3. 30 printchr$(147)"loading and checking data line:":j=4864
  4. 40 forb=0to11:reada
  5. 50 ifb=0thenl=peek(66)*256+peek(65):printchr$(19)tab(31)l:print
  6. 60 ifa<0ora>255then80
  7. 70 pokej+b,a:x=x+a:d=d+1:nextb:reada:ifa=xthen90
  8. 80 print"error in data line:"l:end
  9. 90 x=0:j=j+12:ifd<564then40
  10. 100 print"the data is ok...":print:print"sys 4864 toggles on and off...":end
  11. 110 data162,19,236,51,3,240,10,169,116,72,169,45,1292
  12. 120 data160,19,76,26,19,169,78,72,162,245,169,63,1258
  13. 130 data160,77,141,0,3,140,1,3,104,141,50,3,823
  14. 140 data142,51,3,169,0,141,0,2,96,173,0,2,779
  15. 150 data206,0,2,201,64,208,30,32,239,20,169,13,1184
  16. 160 data32,210,255,32,15,21,32,207,255,201,13,240,1513
  17. 170 data6,32,210,255,76,66,19,32,36,21,76,55,884
  18. 180 data77,201,178,240,12,134,251,162,19,32,7,19,1332
  19. 190 data166,251,76,63,77,173,16,18,133,250,173,17,1413
  20. 200 data18,166,45,164,46,76,149,19,160,16,185,183,1227
  21. 210 data0,153,57,21,136,16,247,32,219,20,32,204,1137
  22. 220 data247,153,75,21,136,16,247,165,174,133,250,165,1782
  23. 230 data175,166,193,164,194,32,204,20,32,239,20,169,1608
  24. 240 data0,162,107,133,199,142,40,3,169,5,162,8,1130
  25. 250 data160,0,32,186,255,169,5,162,44,160,21,32,1226
  26. 260 data189,255,32,192,255,162,5,32,198,255,169,35,1779
  27. 270 data133,251,32,207,255,198,251,208,249,133,251,32,2200
  28. 280 data207,255,133,252,169,5,32,195,255,32,204,255,1994
  29. 290 data32,15,21,32,36,21,169,110,141,40,3,169,789
  30. 300 data1,174,53,21,172,54,21,133,250,134,253,132,1398
  31. 310 data254,169,0,162,252,141,50,21,230,253,208,2,1742
  32. 320 data230,254,165,253,205,51,21,208,7,165,254,205,2018
  33. 330 data52,21,240,14,202,208,233,162,254,230,250,208,2074
  34. 340 data227,238,50,21,208,222,32,129,146,13,80,82,1448
  35. 350 data79,71,82,65,77,32,76,69,78,71,84,72,856
  36. 360 data32,61,32,0,173,50,21,166,250,32,50,142,1009
  37. 370 data32,129,146,13,66,76,79,67,75,83,32,70,868
  38. 380 data82,69,69,32,61,32,0,165,252,166,251,32,1211
  39. 390 data50,142,32,129,146,13,0,173,0,2,201,177,1065
  40. 400 data208,3,76,55,77,32,129,146,13,80,82,79,980
  41. 410 data67,69,69,68,32,87,73,84,72,32,84,72,809
  42. 420 data69,32,83,65,86,69,63,32,40,89,47,78,753
  43. 430 data41,32,0,169,0,133,208,32,228,255,201,78,1377
  44. 440 data240,4,201,89,208,245,32,210,255,72,32,129,1717
  45. 450 data146,13,0,104,201,78,208,3,76,55,77,160,1121
  46. 460 data16,185,57,21,153,183,0,136,16,247,32,224,1270
  47. 470 data20,185,75,21,32,188,247,136,16,247,173,55,1395
  48. 480 data21,133,198,173,51,21,174,52,21,133,174,134,1285
  49. 490 data175,76,78,245,141,52,21,165,250,141,51,21,1416
  50. 500 data142,53,21,140,54,21,96,165,198,141,55,21,1107
  51. 510 data165,187,166,188,164,199,133,172,134,173,132,198,2011
  52. 520 data164,183,96,32,69,168,169,0,133,144,169,8,1335
  53. 530 data32,62,227,36,144,48,9,169,240,32,210,228,1437
  54. 540 data165,144,16,230,104,104,162,5,76,63,77,169,1315
  55. 550 data15,168,162,8,32,186,255,169,0,32,189,255,1471
  56. 560 data32,192,255,162,15,76,198,255,169,15,32,195,1596
  57. 570 data255,76,204,255,36,58,85,61,85,65,72,83,1335
  58.